Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/polardrw/data.z/frmShadowLens.frm

Text File | 1999-06-03 | 7KB | 240 lines

VERSION 5.00
Object = "{9D74B104-40BE-11D2-AA5F-008048E292F1}#1.0#0"; "COLORSELECT.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmShadowLens
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Shadow lens settings"
   ClientHeight    =   3405
   ClientLeft      =   1905
   ClientTop       =   2010
   ClientWidth     =   4275
   FillColor       =   &H00400000&
   Icon            =   "frmShadowLens.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3405
   ScaleWidth      =   4275
   StartUpPosition =   2  'CenterScreen
   Begin VB.OptionButton Option1
      Caption         =   "Brighten"
      Height          =   495
      Index           =   1
      Left            =   195
      TabIndex        =   2
      Top             =   735
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "Transparency"
      Height          =   495
      Index           =   0
      Left            =   195
      TabIndex        =   1
      Top             =   390
      Width           =   1575
   End
   Begin VB.CommandButton btnStartColor
      Caption         =   "Start Color"
      Height          =   345
      Left            =   2610
      TabIndex        =   9
      Top             =   1320
      Width           =   1065
   End
   Begin VB.CommandButton btnEndColor
      Caption         =   "End Color"
      Height          =   345
      Left            =   2610
      TabIndex        =   10
      Top             =   1755
      Width           =   1065
   End
   Begin VB.OptionButton Option1
      Caption         =   "Nothing"
      Height          =   495
      Index           =   8
      Left            =   195
      TabIndex        =   0
      Top             =   45
      Value           =   -1  'True
      Width           =   1575
   End
   Begin VB.CommandButton btnOK
      Caption         =   "OK"
      Height          =   360
      Left            =   3405
      TabIndex        =   11
      Top             =   2955
      Width           =   735
   End
   Begin ColorSelectLib.ColorSelect ctrlEndColor
      Height          =   255
      Left            =   3510
      TabIndex        =   13
      Top             =   765
      Width           =   300
      _Version        =   65536
      _ExtentX        =   529
      _ExtentY        =   450
      _StockProps     =   0
   End
   Begin VB.OptionButton Option1
      Caption         =   "Heatmap Palette"
      Height          =   495
      Index           =   7
      Left            =   195
      TabIndex        =   8
      Top             =   2910
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "TintedGrayscale"
      Height          =   495
      Index           =   6
      Left            =   195
      TabIndex        =   7
      Top             =   2550
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "Invert"
      Height          =   495
      Index           =   5
      Left            =   195
      TabIndex        =   6
      Top             =   2190
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "Direct Palette"
      Height          =   495
      Index           =   4
      Left            =   195
      TabIndex        =   5
      Top             =   1830
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "Limit Color"
      Height          =   495
      Index           =   3
      Left            =   195
      TabIndex        =   4
      Top             =   1455
      Width           =   1575
   End
   Begin VB.OptionButton Option1
      Caption         =   "Add Color"
      Height          =   495
      Index           =   2
      Left            =   195
      TabIndex        =   3
      Top             =   1095
      Width           =   1575
   End
   Begin ColorSelectLib.ColorSelect ctrlStartColor
      Height          =   240
      Left            =   3555
      TabIndex        =   12
      Top             =   585
      Width           =   405
      _Version        =   65536
      _ExtentX        =   714
      _ExtentY        =   423
      _StockProps     =   0
   End
      Begin ComctlLib.Slider sldPercentage
      Height          =   210
      Left            =   2070
      TabIndex        =   9
      Top             =   645
      Width           =   2145
      _ExtentX        =   3784
      _ExtentY        =   370
      _Version        =   327682
      LargeChange     =   10
      Min             =   -100
      Max             =   100
      TickStyle       =   3
   End
   Begin VB.Label lblPercentage
      Caption         =   "Effect percentage:"
      Height          =   285
      Left            =   2085
      TabIndex        =   14
      Top             =   210
      Width           =   2250
   End
End
Attribute VB_Name = "frmShadowLens"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnOK_Click()
    Unload Me
End Sub

Private Sub ctrlStartColor_SelectionEndOK()
    frmDrawVB.POLARDraw1.SetSelShadowLensColor ctrlStartColor.SelectedColor
End Sub

Private Sub ctrlEndColor_SelectionEndOK()

    frmDrawVB.POLARDraw1.SetSelShadowLensBackColor ctrlEndColor.SelectedColor
End Sub

Private Sub btnStartColor_Click()
    'Displays Polar ColorSelect dialogbox showing colors
    ColorSelectPosition (ctrlStartColor) 'Function ColorSelectPosition defined in Module1
    ctrlStartColor.SelectColor
End Sub

Private Sub btnEndColor_Click()
    'Displays Polar ColorSelect dialogbox for color selection
    ColorSelectPosition (ctrlEndColor) 'Function ColorSelectPosition defined in Module1
    ctrlEndColor.SelectColor
End Sub

Private Sub Form_Load()
    Option1(8).Value = True
    lblPercentage.Caption = "Effect percentage: " + CStr(sldPercentage.Value) + "%"

End Sub

Private Sub Option1_Click(Index As Integer)

    frmDrawVB.POLARDraw1.SetSelHasShadow True
    frmDrawVB.POLARDraw1.SetSelHasShadowLens True

    Select Case Index
        Case 0
            frmDrawVB.POLARDraw1.SetSelShadowLensType polTransparency
        Case 1
            frmDrawVB.POLARDraw1.SetSelShadowLensType polBrighten
        Case 2
            frmDrawVB.POLARDraw1.SetSelShadowLensType polColorAdd
        Case 3
            frmDrawVB.POLARDraw1.SetSelShadowLensType polColorLimit
        Case 4
            frmDrawVB.POLARDraw1.SetSelShadowLensType polCustomPalette
        Case 5
            frmDrawVB.POLARDraw1.SetSelShadowLensType polInvert
        Case 6
            frmDrawVB.POLARDraw1.SetSelShadowLensType polTintedGrayscale
        Case 7
            frmDrawVB.POLARDraw1.SetSelShadowLensType polHeatmapPalette
        Case 8
            frmDrawVB.POLARDraw1.SetSelHasShadowLens False
    End Select
End Sub



Private Sub sldPercentage_Scroll()
    frmDrawVB.POLARDraw1.SetSelShadowLensPercent sldPercentage.Value
    lblPercentage.Caption = "Effect percentage: " + CStr(sldPercentage.Value) + "%"
End Sub